perm filename LISP.INI[F76,JMC] blob sn#259348 filedate 1977-01-20 generic text, type T, neo UTF8
(COMMENT BPS 17000. REGPDL 4000. SPECPDL 2000.)
(PROGN

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(DEFUN GC-OVERFLOW-DAEMON (X) 
       (APPLY 'ALLOC
	      (LIST (LIST X
			  (LIST NIL
				(+ 1024.
				   (CADR (GET (CONS NIL (ALLOC T))
					      X)))
				NIL))))
T ))